perm filename P1[226,DBL] blob
sn#027567 filedate 1973-03-02 generic text, type T, neo UTF8
(PROOF ONE)
1 (ASS (IMPLIES X (IMPLIES Y Z)))
2 (ASS (IMPLIES X (IMPLIES Z Y)))
3 (ASS Y)
4 (ASS (NOT Z))
5 (ASS X)
6 (MP 5 1)
7 (MP 3 6)
8 (AI 4 7)
9 (TAUT NIL 8)
10 (ASS (NOT X))
11 (DED 9 4 3 5 1)
12 (TAUT FALSE 8)
13 (DED 12 4 3 5 1)
14 (NI 13)
15 (TAUT (OR Z (NOT Y) (NOT X) (NOT (IMPLIES X (IMPLIES Y Z))))
14)
16 (TAUT (IMPLIES (AND Y (NOT Z) (IMPLIES X (IMPLIES Y Z)))
(NOT X))
15)
(MAKETHM HI 15 ONE)
17 (USETHM HI)
18 (UG 17 Z X)
19 (EG 18 Y)
20 (US 18 X)
21 (US 19 X)
(PROOF VALUE)
(MAKETHM HI 15 ONE)